home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / iqb9109.zip / RANDFN.BAS < prev    next >
BASIC Source File  |  1991-09-09  |  373b  |  24 lines
  1. ' RANDFN.BAS
  2. ' $INCLUDE: RANDFN.BI
  3.  
  4. FUNCTIION Ran0% (n%)
  5.    RANDOMIZE TIMER
  6.    Ran0% = n% * RND
  7. END FUNCTION
  8.  
  9. FUNCTION Ran1% (n%)
  10.    RANDOMIZE TIMER
  11.    Ran1% = (n% - 1) * RND + 1
  12. END FUNCTION
  13.  
  14. FUNCTIION Ran0& (n&)
  15.    RANDOMIZE TIMER
  16.    Ran0& = n& * RND
  17. END FUNCTION
  18.  
  19. FUNCTION Ran1& (n&)
  20.    RANDOMIZE TIMER
  21.    Ran1& = (n& - 1) * RND + 1
  22. END FUNCTION
  23.  
  24.